home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 2.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / 1.2 / scripts / title-header.scm.z / title-header.scm
Text File  |  2002-07-08  |  5KB  |  184 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; Bump-mapped title script --- create a bump-mapped title image for web pages
  5. ; Copyright (C) 1997 Federico Mena Quintero
  6. ; federico@nuclecu.unam.mx
  7. ; ************************************************************************
  8. ; Changed on Feb 4, 1999 by Piet van Oostrum <piet@cs.uu.nl>
  9. ; For use with GIMP 1.1.
  10. ;
  11. ; The corresponding parameters have been replaced by an SF-FONT parameter.
  12. ; The call to gimp-palette-set-background has been given a real layer
  13. ; (although it is not used) otherwise gimp 1.1 crashed.
  14. ; ************************************************************************
  15. ; 
  16. ; This program is free software; you can redistribute it and/or modify
  17. ; it under the terms of the GNU General Public License as published by
  18. ; the Free Software Foundation; either version 2 of the License, or
  19. ; (at your option) any later version.
  20. ; 
  21. ; This program is distributed in the hope that it will be useful,
  22. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  23. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24. ; GNU General Public License for more details.
  25. ; 
  26. ; You should have received a copy of the GNU General Public License
  27. ; along with this program; if not, write to the Free Software
  28. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29.  
  30.  
  31. (define (script-fu-title-header text
  32.                 size
  33. ;                foundry
  34. ;                family
  35. ;                weight
  36. ;                slant
  37. ;                set-width
  38.                 fontname)
  39.   (let* (; Parameters
  40.      
  41.      (padding 8)
  42.      (fade-width 64)
  43.      
  44.      ; Save foreground and background colors
  45.  
  46.      (old-fg-color (car (gimp-palette-get-foreground)))
  47.      (old-bg-color (car (gimp-palette-get-background)))
  48.      
  49.      ; Image 
  50.  
  51.      (img (car (gimp-image-new 256 256 RGB)))
  52.  
  53.      ; Text layer
  54.      
  55.      (text-layer (car (gimp-text-fontname
  56.                img
  57.                -1
  58.                0
  59.                0
  60.                text
  61.                padding
  62.                TRUE
  63.                size
  64.                PIXELS
  65.                fontname)))
  66.      (text-width (car (gimp-drawable-width text-layer)))
  67.      (text-height (car (gimp-drawable-height text-layer)))
  68.  
  69.      ; Sizes
  70.  
  71.      (text-layers-offset (/ text-height 2))
  72.  
  73.      (img-width (+ text-layers-offset text-width fade-width))
  74.      (img-height text-height)
  75.  
  76.      ; Additional layers
  77.      
  78.      (bg-layer (car (gimp-layer-new img img-width img-height RGBA_IMAGE "bg-layer" 100 NORMAL)))
  79.      (bumpmap-layer (car (gimp-layer-new img
  80.                          text-width
  81.                          text-height
  82.                          RGBA_IMAGE
  83.                          "bumpmap-layer"
  84.                          100
  85.                          NORMAL)))
  86.      (fore-layer (car (gimp-layer-new img text-width text-height RGBA_IMAGE "fore-layer" 100 NORMAL))))
  87.     
  88.     ; Create image
  89.     
  90.     (gimp-image-undo-disable img)
  91.     (gimp-image-resize img img-width img-height 0 0)
  92.     
  93.     (gimp-image-add-layer img bg-layer -1)
  94.     (gimp-image-add-layer img bumpmap-layer -1)
  95.     (gimp-image-add-layer img fore-layer -1)
  96. ;    (gimp-image-add-layer img text-layer -1)
  97.     (gimp-image-raise-layer img text-layer)
  98.     (gimp-image-raise-layer img text-layer)
  99.     (gimp-image-raise-layer img text-layer)
  100.     (gimp-layer-set-offsets bg-layer 0 0)
  101.     (gimp-layer-set-offsets text-layer text-layers-offset 0)
  102.     (gimp-layer-set-offsets bumpmap-layer text-layers-offset 0)
  103.     (gimp-layer-set-offsets fore-layer text-layers-offset 0)
  104.  
  105.     ; Create bumpmap layer
  106.  
  107.     (gimp-palette-set-background '(0 0 0))
  108.     (gimp-edit-fill bumpmap-layer BG-IMAGE-FILL)
  109.     (gimp-selection-layer-alpha text-layer)
  110.     (gimp-palette-set-background '(255 255 255))
  111.     (gimp-edit-fill bumpmap-layer BG-IMAGE-FILL)
  112.     (gimp-selection-none img)
  113.     (plug-in-gauss-rle 1 img bumpmap-layer 4.0 TRUE TRUE)
  114.  
  115.     ; Fore layer, bumpmap
  116.  
  117.     (gimp-palette-set-background '(255 255 255))
  118.     (gimp-edit-fill fore-layer BG-IMAGE-FILL)
  119.     (plug-in-bump-map 1 img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
  120.  
  121.     ; Text layer
  122.  
  123.     (gimp-layer-set-visible text-layer TRUE)
  124.     (gimp-layer-set-preserve-trans text-layer TRUE)
  125.     (gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0.2 3
  126.         padding
  127.         padding
  128.         (- text-width padding 1)
  129.         (- text-height padding 1))
  130.  
  131.     ; Semicircle at the left
  132.  
  133.     (gimp-palette-set-background '(0 0 0))
  134.     (gimp-edit-fill bg-layer BG-IMAGE-FILL)
  135.     
  136.     (gimp-ellipse-select img 0 0 text-height text-height REPLACE TRUE FALSE 0)
  137.     (gimp-palette-set-background (car (gimp-color-picker img text-layer text-layers-offset 0 TRUE FALSE 0 0)))
  138.     (gimp-edit-fill bg-layer BG-IMAGE-FILL)
  139.  
  140.     ; Fade-out gradient at the right
  141.  
  142.     (gimp-rect-select img (- img-width fade-width) 0 fade-width text-height REPLACE FALSE 0)
  143.     (gimp-palette-set-foreground (car (gimp-palette-get-background)))
  144.     (gimp-palette-set-background '(0 0 0))
  145.     (gimp-blend bg-layer
  146.         FG-BG-RGB
  147.         NORMAL
  148.         LINEAR
  149.         100
  150.         0
  151.         REPEAT-NONE
  152.         FALSE
  153.         0.2
  154.         3
  155.         (- img-width fade-width)
  156.         0
  157.         (- img-width 1)
  158.         0)
  159.     (gimp-selection-none img)
  160.  
  161.     ; Done
  162.     
  163. ;    (gimp-image-flatten img)
  164.     (gimp-palette-set-foreground old-fg-color)
  165.     (gimp-palette-set-background old-bg-color)
  166.     (gimp-image-undo-enable img)
  167.     (gimp-display-new img)))
  168.  
  169. (script-fu-register "script-fu-title-header"
  170.             _"<Toolbox>/Xtns/Script-Fu/Logos/Web Title Header..."
  171.             "Web title header"
  172.             "Federico Mena Quintero"
  173.             "Federico Mena Quintero"
  174.             "June 1997"
  175.             ""
  176.             SF-STRING     _"Text" "Hello world!"
  177.             SF-ADJUSTMENT _"Font Size (pixels)" '(32 2 256 1 10 0 0)
  178.             SF-FONT       _"Font" "-adobe-helvetica-bold-r-normal-*-30-*-*-*-p-*-*-*")
  179.  
  180.  
  181.  
  182.  
  183.  
  184.